/* GUI CONVERTED from mfcscg.i (converter v1.75) Thu Feb  8 21:04:58 2001 */
/* mfcscg.i - CHANGE CUSTOMER CODE                                      */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 1.0      LAST MODIFIED: 12/18/87   BY: KAT */
/* REVISION: 4.0      LAST MODIFIED: 03/24/88   BY: WUG */
/* REVISION: 4.0      LAST MODIFIED: 10/06/88   BY: emb *A469*/
/* REVISION: 5.0      LAST MODIFIED: 07/07/89   BY: WUG *B176*/
/* REVISION: 7.3      LAST MODIFIED: 03/25/93   BY: afs *G875*/
/*                                   07/08/94   BY: rmh *FP15*/
/*                                   09/26/94   BY: jzs *GM54*/
/* REVISION: 8.6      LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan   */
/* REVISION: 9.0      LAST MODIFIED: 03/10/99   BY: *M0B8* Hemanth Ebenezer */
/* REVISION: 9.0      LAST MODIFIED: 03/13/99   BY: *M0BD* Alfred Tan       */
/* REVISION: 9.1      LAST MODIFIED: 08/13/00   BY: *N0KR* myb              */
/* REVISION: 9.1      LAST MODIFIED: 02/06/01   BY: *N0VG* Jyoti Thatte     */

/*FP15*  mfcscg01.i & adadcg?.i's are very similar to mfcscg.i.
 *FP15*  review them when modifications are made to mfcscg.i
 */

/*G875** find _file where _file-name = "{1}" no-lock. **/
     hide message no-pause.

     num_rec = 0.

     for each {1} where {2} = {3} exclusive:
        {2} = {4}.
        num_rec = num_rec + 1.
/*N0VG*/ release {1}.
     end.

/*GM54*/ {mfcscgb.i {1} } /* Display count in status frame b, of records hit */

/*GM54 ************************ put this horse puckey in one place *********
*    if num_rec > 0 then do:
* /*G875*/    if global_user_lang = "" then
* /*GB39*/     {gpfile.i &file_name = """"{1}"""" }
* /*G875*     find _file where _file-name = "{1}" no-lock no-error. */
* /*GB39**    display _file._desc num_rec. **
**G875**    display _file._desc when available _file
**G875**                  "{1}" when not available _file @ _file._desc
**GB39* block deleted */
* /*GB39*/    display file_desc when file_found
* /*GB39*/         "{1}" when not file_found @ file_desc
* /*G875*/     num_rec.
*       down 1.
*    end.
*GM54 *********************** where it is fixed to scroll nicely ************/
